home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 1 / Meeting Pearls Vol 1 (1994).iso / amok98-106 / amok101 / interfaces / compile_all < prev    next >
Text File  |  1994-04-21  |  8KB  |  268 lines
  1. ; Installiert die neuen Interfaces und compiliert alles neu
  2. ; Installs the new interfaces and recompiles everything
  3. ;
  4. ; © 1994 by Thomas Wagner [tom]
  5. ; Permission granted to include to Interfaces edited by hartmut Goebel
  6. ; and the Amiga Oberon Distribution.
  7. ;
  8. ; $VER: Compile_All_2 1.0 (17.1.94)
  9. ;
  10. ; KEINE HAFTUNG
  11. ;
  12. ; Die Tabulatorlänge sollte auf 4 gesetzt werden, um diesen Text zu lesen/editieren
  13. ; set tabsize to 4 to read/edit this text
  14.  
  15. (set #archivename "Interfaces3_4.lha")
  16.  
  17. (if (= @language "deutsch")
  18. (
  19. (set #start
  20.         (cat "\n© 1994 by Thomas Wagner [tom]\n"
  21.                  "*********************************\n\n"
  22.                  "Mit diesem Skript kann man den alle System- und Objekt-Files von "
  23.                  "Amiga Oberon neu erzeugen.\n\n"
  24.                  "Da das Archiv entpackt wird, benötigt es LHA im Suchpfad.\n\n"
  25.                  "Wenn der Diskettenname ein '#' enthält, muß die Schublade erst "
  26.                  "z.B. ins RAM: kopiert werden, da LHA das nicht verkraftet."
  27.         )
  28. )
  29.  
  30. (set #select-comp
  31.         (cat "Jetzt müssen noch die Symbol- und Objekt-Files erstellt werden. "
  32.                  "Bitte wählen Sie, welche Objekt-Files ich erstellen soll."
  33.         )
  34. )
  35.  
  36. (set #compilation
  37.         (cat "Ich compiliere jetzt mit den von Ihnen gewünschten Parametern.\n\n"
  38.                  "Bitte haben Sie etwas Geduld. Dieser Teil dauert etwas länger...\n\n"
  39.                  "Ich erzeuge gerade die *.obj%s-Files."
  40.         )
  41. )
  42.  
  43. (set #where-are-interfaces "In welches Verzeichnis soll ich die Interfaces entpacken?")
  44. (set #where-are-modules "Wo sind die Module?")
  45. (set #where-are-syms
  46.         (cat "In welchem gemeinsamen (Ober-)Verzeichnis befindet sich sowohl "
  47.                  "das Verzeichnis \"sym\" also auch \"obj\", bzw. wo sollen diese "
  48.                  "angelegt werden?"
  49.         )
  50. )
  51.  
  52. (set #where-is-list "Welche Compilerversion verwenden sie?")
  53.  
  54. (set #comp-old "niedriger als 3.10")
  55. (set #comp-new "3.10 oder höher")
  56.  
  57. (set #where-is-oberon "In welchem Verzeichnis ist der Oberon Compiler?")
  58.  
  59. (set #extracting "Entpacke Daten ...")
  60.  
  61. (set interfaces-dir "")
  62. (set modules-dir "")
  63. ))
  64.  
  65. (if (= @language "english")
  66. (
  67. (set #start
  68.         (cat "\n© 1994 by Thomas Wagner [tom]\n"
  69.                  "*********************************\n\n"
  70.                  "With this script you can recreate all system and objekt files of "
  71.                  "Amiga Oberon.\n\n"
  72.                  "This the archive will be unpacked, it needs LHA in the search path.\n\n"
  73.                  "If the volume name contains '#' the drawer must be copied to e.g. "
  74.                  "RAM: first, because LHA can't handle this."
  75.         )
  76. )
  77.  
  78. (set #select-comp
  79.         (cat "Now the symbol and object files have to be created. "
  80.                  "Please select which sort of object files should be created."
  81.         )
  82. )
  83.  
  84. (set #compilation
  85.         (cat "I compile with you selected parameters.\n\n"
  86.                  "Please be patient. This part will take some time...\n\n"
  87.                  "I now create the *.obj%s files."
  88.         )
  89. )
  90.  
  91. (set #where-are-interfaces "Into which dir I should extract the interfaces?")
  92. (set #where-are-modules "Where are the modules?")
  93. (set #where-are-syms
  94.         (cat "In which common (main-)directory are your \"sym\" AND \"obj\" "
  95.          "drawer, or in which directory should they be created?"
  96.         )
  97. )
  98.  
  99. (set #where-is-list "Which compiler version do you use?")
  100.  
  101. (set #comp-old "lower than 3.10")
  102. (set #comp-new "3.10 or higher")
  103.  
  104. (set #where-is-oberon "In which directory os your compiler?")
  105.  
  106. (set #extracting "Extracting from archive ...")
  107.  
  108. (set interfaces-dir "")
  109. (set modules-dir "")
  110. ))
  111.  
  112. ;--------------------------------------------------------
  113. ; compile modules and interfaces
  114.  
  115. (message #start)
  116.  
  117. (welcome)
  118.  
  119. (set @default-dest "OBERON:")
  120.  
  121. (set obfull
  122.         (askdir
  123.                 (prompt #where-is-oberon)
  124.                 (help @askfile-help)
  125.                 (default @default-dest)
  126. ;               (newpath)
  127.         )
  128. )
  129.  
  130. (set comp
  131.         (askoptions
  132.                 (prompt #select-comp)
  133.                 (help @askoptions-help)
  134.                 (choices " <    > (*.obj)"
  135.                                  " <-md > (*.objs)"
  136.                                  " <-a  > (*.obja)"
  137.                                  " <-mda> (*.objsa)"
  138.                 )
  139.                 (default 15)
  140.         )
  141. )
  142.  
  143. (set obfull (tackon obfull "Oberon"))
  144.  
  145. (if (= interfaces-dir "")
  146.         (set interfaces-dir
  147.                 (askdir
  148.                         (prompt #where-are-interfaces)
  149.                         (help @askdir-help)
  150.                         (default (tackon @default-dest "Interfaces"))
  151.                 )
  152.         )
  153. )
  154.  
  155. (if (= modules-dir "")
  156.         (set modules-dir
  157.                 (askdir
  158.                         (prompt #where-are-modules)
  159.                         (help @askdir-help)
  160.                         (default (tackon @default-dest "Module"))
  161.                 )
  162.         )
  163. )
  164.  
  165. (set sym-dir
  166.         (askdir
  167.                 (prompt #where-are-syms)
  168.                 (help @askdir-help)
  169.                 (default @default-dest)
  170.         )
  171. )
  172.  
  173. (set list (pathonly @icon))
  174.  
  175. (if
  176.         (askbool
  177.                 (prompt #where-is-list)
  178.                 (help @askbool-help)
  179.                 (choices (#comp-old) (#comp-new))
  180.         )
  181.     (set list (tackon list "recomp.lst"))
  182.     (set list (tackon list "recomp3_1.lst"))
  183. )
  184.  
  185. (if (NOT (exists (tackon sym-dir "sym")))
  186.         (makedir (tackon sym-dir "sym") (infos))
  187. )
  188.  
  189. (if (NOT (exists (tackon sym-dir "obj")))
  190.         (makedir (tackon sym-dir "obj") (infos))
  191. )
  192.  
  193. (makeassign "om" modules-dir)
  194. (makeassign "oa" interfaces-dir)
  195. (makeassign "symdir" (tackon sym-dir "obj") )
  196.  
  197. (working #extracting)
  198.  
  199. (run (cat "lha -x0 e " (tackon (pathonly @icon) #archivename) " symdir: *.o"))
  200. (run (cat "lha -x0 e " (tackon (pathonly @icon) #archivename) " oa: *.mod"))
  201.  
  202. (makeassign "symdir")
  203.  
  204. (set intro (cat "cd " sym-dir "\nstack 30000\n"))
  205.  
  206. (if (IN comp 0)
  207.         (
  208.                 (working (#compilation ""))
  209.                 (textfile
  210.                         (prompt "")
  211.                         (help @textfile-help)
  212.                         (dest "T:OBINST")
  213.                         (append intro)
  214.                         (append (cat obfull " >CON: <" list "\n"))
  215.                 )
  216.                 (execute "T:OBINST")
  217.                 (run "delete T:OBINST")
  218.         )
  219. )
  220.  
  221. (if (IN comp 1)
  222.         (
  223.                 (working (#compilation "s"))
  224.                 (textfile
  225.                         (prompt "")
  226.                         (help @textfile-help)
  227.                         (dest "T:OBINST")
  228.                         (append intro)
  229.                         (append (cat obfull " -md >CON: <" list "\n"))
  230.                 )
  231.                 (execute "T:OBINST")
  232.                 (run "delete T:OBINST")
  233.         )
  234. )
  235.  
  236. (if (IN comp 2)
  237.         (
  238.                 (working (#compilation "a"))
  239.                 (textfile
  240.                         (prompt "")
  241.                         (help @textfile-help)
  242.                         (dest "T:OBINST")
  243.                         (append intro)
  244.                         (append (cat obfull " -a >CON: <" list "\n"))
  245.                 )
  246.                 (execute "T:OBINST")
  247.                 (run "delete T:OBINST")
  248.         )
  249. )
  250.  
  251. (if (IN comp 3)
  252.         (
  253.                 (working (#compilation "sa"))
  254.                 (textfile
  255.                         (prompt "")
  256.                         (help @textfile-help)
  257.                         (dest "T:OBINST")
  258.                         (append intro)
  259.                         (append (cat obfull " -mda >CON: <" list "\n"))
  260.                 )
  261.                 (execute "T:OBINST")
  262.                 (run "delete T:OBINST")
  263.         )
  264. )
  265.  
  266. (makeassign "oa")
  267. (makeassign "om")
  268.